prompt 易惠多点结算住院接口HIS内部接口日志 create or replace procedure SP_ZY_DDJSJKRZ( PJKLXBH in number ,--输入:接口编码 PJKLX00 in varchar2 default 'DD' ,--输入:DD:多点结算 YD:移动结算 YB:医保结算 PBRID00 in number ,--输入:BRID00 PZYGHID in number ,--输入:挂号ID或住院ID PCARDNO in varchar2 ,--输入:IC卡号或住院号 PMZZYBZ in varchar2 default '0' ,--输入:门诊住院标志 0:门诊 1:住院 PCZY000 in number ,--输入:操作员编码 PCZYXM0 in varchar2 ,--输入:操作员姓名 PCZYKS0 in number ,--输入:操作员科室 PKSRQ00 in varchar2 default '' ,--输入:开始日期 PJSRQ00 in varchar2 default '' ,--输入:结束日期 PJZDH00 in number default 0 ,--输入:结账单号 PYBGHH0 in varchar2 default '' ,--输入:医保挂号号或医保住院号 PYBDJH0 in varchar2 default '' ,--输入:医保单据号 PCSNBID in varchar2 default '' ,--输入:参数内部ID PBYRC00 in varchar2 default '' ,--输入:备用入参 PCOMMIT in varchar2 default 'N' ,--输入:是否提交事务 Y:提交 N:不提交 PZXZT00 out number ,--输出:执行状态 0:失败 1：成功 PDDLSH0 out varchar2 ,--输出:订单流水号 PERRMSG out varchar2 --输出:错误信息 ) as -- MODIFICATION HISTORY -- Person Date Comments --zhangyc 2018.12.24 created by ZYSF-20181225-002 --zhangyc 2018.12.25 床边结算修改 by ZYSF-20181226-002 --zhangyc 2019.01.16 增加住院刷卡功能 by ZYSF-20190118-001 --zhangyc 2019.01.18 增加入院登记报文 by ZYSF-20190118-002 --zhangyc 2019.01.21 增加入院登记冲销功能 by ZYSF-20190121-001 --zhangyc 2019.01.22 增加预结算和结算功能 by ZYSF-20190122-002 --zhangyc 2019.01.29 增加报文节点 by ZYSF-20190130-001 --zhangyc 2019.04.01 增加不同厂家控制(YH:易惠 YL:医联) by ZYSF-20190401-003 --zhangyc 2019.04.11 修改hisExtra节点下编码,增加插入字段ZYLSH0,PTBCTS,CRBCTS,ZYLB00 by ZYSF-20190411-004 --zhangyc 2019.04.12 易惠接口增加插入读卡返回信息报文节点编码 by ZYSF-20190412-001 --zhangyc 2019.04.12 增加20020(个人医保信息查询)以及出院日期、出院时间、出院类型 by ZYSF-20190416-001 --zhangyc 2019.04.18 修改易惠接口出院结算 cardno为空值传住院号 by ZYSF-20190418-004 --zhangyc 2019.09.01 读卡信息增加返回sfjzfp(是否精准扶贫 Y:是 N:否) by ZYSF-20190910-003 --zhangyc 2020.09.23 易慧床边入院登记修改 by ZYSF-20200924-002 --zhangyc 2021.03.01 易惠hisExtra中变量去掉P开头 ----------------------------------------------------------- LS_DDLSH0 ZY_YBJK00.DDLSH0%type;--订单流水号 LS_JKQDBM ZY_YBJK00.JKQDBM%type;--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 LS_JKLXBM ZY_YBJK00.JKLXBM%type;--接口类型编码 LS_JKLXMC ZY_YBJK00.JKLXMC%type;--接口类型名称 LS_JKLX00 ZY_YBJK00.JKLX00%type;--接口类型 LS_JKMXLX ZY_YBJK00.JKMXLX%type;--接口明细类型 LS_CZRQ00 ZY_YBJK00.CZRQ00%type;--操作日期 LS_CZSJ00 ZY_YBJK00.CZSJ00%type;--操作时间 LS_CZY000 ZY_YBJK00.CZY000%type;--操作员 LS_CZYXM0 ZY_YBJK00.CZYXM0%type;--操作员姓名 LS_CZYKS0 ZY_YBJK00.CZYKS0%type;--操作员科室 LS_BRID00 ZY_YBJK00.BRID00%type;--BRID00 LS_ZYID00 ZY_YBJK00.ZYID00%type;--住院ID LS_ZYH000 ZY_YBJK00.ZYH000%type;--住院号 LS_BRXM00 ZY_YBJK00.BRXM00%type;--病人姓名 LS_BRXB00 ZY_YBJK00.BRXB00%type;--病人性别 LS_BRZJBH ZY_YBJK00.BRZJBH%type;--病人证件编号 LS_YBKH00 ZY_YBJK00.YBKH00%type;--医保卡号 LS_YBID00 ZY_YBJK00.YBID00%type;--医保ID LS_YBMC00 ZY_YBJK00.YBMC00%type;--医保中心名称 LS_YBZYH0 ZY_YBJK00.YBZYH0%type;--医保住院号 LS_YBDJH0 ZY_YBJK00.YBDJH0%type;--医保单据号 LS_JZDH00 ZY_YBJK00.JZDH00%type;--结账单号 LS_KSRQ00 ZY_YBJK00.KSRQ00%type;--开始日期 LS_JSRQ00 ZY_YBJK00.JSRQ00%type;--结束日期 LS_INCS00 ZY_YBJK00.INCS00%type;--备用参数 LS_JKNBCS ZY_YBJK00.JKNBCS%type;--接口内部参数 LS_JKQQCS ZY_YBJK00.JKQQCS%type;--接口请求参数 LS_JKFHCS ZY_YBJK00.JKFHCS%type;--接口返回参数 LS_TYZDCS varchar2(20); RBRXX BM_BRXXB0%rowtype; RZYXX ZY_BRXXB0%rowtype; RYBLB IC_YBBRLB%rowtype; LS_FBBH00 BM_BRXXB0.FBBH00%type; --费别编码 LS_CARDNO varchar2(100); LS_FUNC varchar2(50);--功能接口代码 LS_FROM varchar2(50);--多点结算平台商户编号 LS_TERMID varchar2(50);--多点结算平台终端编号 LS_USERID varchar2(50);--用户名 LS_USERPW varchar2(50);--密码 LS_AREANO varchar2(50);--地区编号 LS_YWXT00 varchar2(50);--业务系统 医保-YB ZF LS_YY_YWLSH0 varchar2(50);--医院业务流水号 LS_YYKSBM varchar2(50);--医院科室编码 LS_RYKSMC varchar2(50);--入院科室名称 LS_RYLB00 varchar2(50);--入院类别 LS_ZYLB00 varchar2(50);--住院类别（21 普通住院 22 特殊病种住院 31 家庭病床 52 生育住院 62 失业住院 72 工伤住院） LS_ZDBH00 varchar2(20);--多点结算操作员终端编号对应（=SST_YGBHDY.ZZJBH0）,未维护按实际操作员 LS_DDCJBM BM_TYZD00.MC0000%type; --多点结算厂家编码 YH:易惠 YL:医联 默认值:YH(易惠) LS_CATYPE varchar2(10); --卡类型 01:社保卡 02:就诊卡 03:身份证 04:住院号 LS_YWTYPE varchar2(10); --业务类别 01:门诊 02:住院 LS_ZYTS00 number(5); --住院天数 LS_ZYLSH0 varchar2(50);--住院流水号 LS_PTBCTS varchar2(50);--普通病床日 LS_CRBCTS varchar2(50);--传染病床日 LS_JDBM00 ZY_YBFSJD.JDBM00%type; --节点编码 LS_JDMC00 ZY_YBFSJD.JDMC00%type; --节点名称 LS_CYRQ00 varchar2(50);--出院日期 String(8) N “20150101” LS_CYSJ00 varchar2(50);--出院时间 String(4) N “0404” LS_CYZTLX varchar2(50);--出院状态类型 String(12) 010 痊愈 020 好转 030 恶化 040 死亡 050 其他 LS_KSBM00 varchar2(50);--科室编码 begin --接口定义 /* 20011：门诊刷卡 20012:门诊挂号 20013:门诊挂号冲销 20014:门诊收费 20015：门诊收费冲销 20020:个人医保信息查询 20021：住院刷卡 20022:入院登记 20023:入院登记冲销 20024:住院预结算 20025:住院收费 20026：住院收费冲销 20027：出院登记 20028：出院登记冲销 20001：门诊交易查询 20002：门诊收费明细查询 20003：住院交易查询 20004：住院收费明细查询 */ PZXZT00:=0; --执行状态 0:失败 1：成功 LS_TYZDCS:='多点结算接口参数'; LS_CZRQ00:=to_char(sysdate,'YYYYMMDD'); --操作日期 LS_CZSJ00:=to_char(sysdate,'HH24:MI:SS'); --操作时间 LS_CATYPE:='04'; --卡类型 01:社保卡 02:就诊卡 03:身份证 04:住院号 LS_YWTYPE:='02'; --业务类别 01:门诊 02:住院 if PMZZYBZ='0' then select lpad(SQ_SF_YBJK00_DDLSH0.nextval,4,'0') into LS_DDLSH0 from dual; else select lpad(SQ_ZY_YBJK00_DDLSH0.nextval,4,'0') into LS_DDLSH0 from dual; end if; LS_DDLSH0:=PJKLX00||to_char(sysdate,'YYYYMMDDHH24MISS')||LS_DDLSH0; PDDLSH0:=LS_DDLSH0; LS_BRID00:=nvl(PBRID00,0);--BRID00 LS_ZYID00:=nvl(PZYGHID,0);--住院id LS_ZYH000:=PCARDNO;--住院号 LS_JKQDBM:=PJKLX00;--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 LS_JKLXBM:=PJKLXBH;--接口类型编码 --接口类型 if PJKLX00='DD' then LS_JKLX00:='多点结算'; elsif PJKLX00='YD' then LS_JKLX00:='移动结算'; elsif PJKLX00='YB' then LS_JKLX00:='医保结算'; else LS_JKLX00:=''; end if; LS_JKMXLX:='';--接口明细类型 LS_CZY000:=PCZY000;--操作员 LS_CZYXM0:=PCZYXM0;--操作员姓名 LS_CZYKS0:=PCZYKS0;--操作员科室 LS_KSRQ00:=PKSRQ00;--开始日期 LS_JSRQ00:=PJSRQ00;--结束日期 LS_JZDH00:=PJZDH00;--结账单号 LS_YBZYH0:=PYBGHH0;--医保挂号号或医保住院号 LS_YBDJH0:=PYBDJH0;--医保单据号 LS_INCS00:=PBYRC00;--备用参数 LS_ZYTS00:=0;--住院天数 LS_ZYLSH0:='';--住院流水号 LS_PTBCTS:='0';--普通病床日 LS_CRBCTS:='0';--传染病床日 LS_ZYLB00:='21';--住院类别(普通,家庭病床) --DDJSCJBM 多点结算厂家编码 YH:易惠 YL:医联 默认值:YH(易惠) begin select substrb(SF_SF_TYZD00(LS_TYZDCS,'DDJSCJBM'),1,50) into LS_DDCJBM from dual; exception when others then LS_DDCJBM:='YH'; end; LS_DDCJBM:=nvl(LS_DDCJBM,'YH'); select substrb(SF_ZY_GETJKLXMC('DD',LS_JKLXBM,'0',''),1,50) into LS_JKLXMC from dual; --接口类型名称 select substrb(SF_ZY_GETJKLXMC('DD',LS_JKLXBM,'1',''),1,50) into LS_FUNC from dual; --功能接口代码 if PMZZYBZ='0' then select substrb(SF_SF_TYZD00(LS_TYZDCS,'appid_MZ'),1,50) into LS_FROM from dual; --多点结算平台商户编号 select substrb(SF_SF_TYZD00(LS_TYZDCS,'termid_MZ'),1,50) into LS_TERMID from dual; --多点结算平台终端编号 else select substrb(SF_SF_TYZD00(LS_TYZDCS,'appid_ZY'),1,50) into LS_FROM from dual; --多点结算平台商户编号 select substrb(SF_SF_TYZD00(LS_TYZDCS,'termid_ZY'),1,50) into LS_TERMID from dual; --多点结算平台终端编号 end if; select substrb(SF_SF_TYZD00(LS_TYZDCS,'userid'),1,50) into LS_USERID from dual; --用户名 select substrb(SF_SF_TYZD00(LS_TYZDCS,'userpw'),1,50) into LS_USERPW from dual; --密码 select substrb(SF_SF_TYZD00(LS_TYZDCS,'areano'),1,50) into LS_AREANO from dual; --地区编号 select substrb(SF_SF_TYZD00(LS_TYZDCS,'ywxt00'),1,50) into LS_YWXT00 from dual; --业务系统 select max(ZZJBH0) into LS_ZDBH00 from SST_YGBHDY; --取个自助机终端编码 LS_YY_YWLSH0:=LS_DDLSH0;--医院业务流水号 if PCSNBID is not null then begin select JKQQCS into LS_JKNBCS from BM_ZFPTCS where DDLSH0=PCSNBID and MKLXMC='多点结算HIS请求参数'; exception when others then LS_JKNBCS:=''; end; end if; --查找病人基本信息 if LS_BRID00>0 then begin select * into RBRXX from BM_BRXXB0 where BRID00=LS_BRID00; select * into RYBLB from IC_YBBRLB where YBLB00=RBRXX.YBLB00 and FBBH00=RBRXX.FBBH00; exception when others then PZXZT00:=0;--输出:执行状态 0:失败 1：成功 PERRMSG:='未找到有效的基本信息(BM_BRXXB0)！';--输出:错误信息 return; end; LS_FBBH00:=RBRXX.FBBH00; LS_BRXM00:=RBRXX.BRXM00;--病人姓名 LS_BRXB00:=RBRXX.BRXB00;--病人性别 LS_BRZJBH:=RBRXX.BRZJBH;--病人证件编号 LS_YBKH00:=trim(RBRXX.YBKH00);--医保卡号 if LS_YBKH00='0' then LS_YBKH00:=null; end if; LS_YBID00:=trim(RBRXX.YBID00);--医保ID if LS_YBID00='0' then LS_YBID00:=null; end if; LS_YBMC00:=RYBLB.YBMC00;--医保中心名称 end if; if LS_FBBH00 not in (3) then LS_YWXT00:='ZF'; end if; if PJKLXBH in ('20021','20022') then LS_YWXT00:='YB'; end if; --LS_ZYID00 if LS_ZYID00>0 then begin select * into RZYXX from ZY_BRXXB0 where ZYID00=LS_ZYID00; exception when others then PZXZT00:=0;--输出:执行状态 0:失败 1：成功 PERRMSG:='未找到有效的住院基本信息(ZY_BRXXB0)！';--输出:错误信息 return; end; LS_YBZYH0:=RZYXX.YBZYH0;--医保住院号 if LS_YBZYH0='0' then LS_YBZYH0:=null; end if; --获取医院科室编码yyksbm 医院科室编码 begin select SF_ZY_GETYYKSBM(LS_ZYID00,0) into LS_YYKSBM from dual; exception when others then LS_YYKSBM:=null; end; --获取科室名称 begin select BMMC00 into LS_RYKSMC From BM_BMBM00 where BMBH00=RZYXX.DQKS00; if LS_YYKSBM is null then select YYKSBM into LS_YYKSBM From BM_BMBM00 where BMBH00=RZYXX.DQKS00; end if; exception when others then LS_RYKSMC:=null; end; --获取rylb00 入院类别(01 普通病床,02 家庭病床 03 择日住院) begin select BZDYBH into LS_RYLB00 from BM_TYZD00 where ZDMC00='医保入院类别对应' and MC0000=RZYXX.RYLB00; exception when others then LS_RYLB00:=null; end; if LS_RYLB00 is null then LS_RYLB00:=RZYXX.RYLB00; end if; --获取住院天数 begin select to_date(nvl(RZYXX.CYRQ00,to_char(sysdate,'YYYYMMDD')),'YYYYMMDD')-to_date(RZYXX.RYRQ00,'YYYYMMDD') into LS_ZYTS00 from dual; exception when others then LS_ZYTS00:=0; end; LS_ZYLSH0:=LS_YBZYH0;--住院流水号 LS_PTBCTS:=LS_ZYTS00;--普通病床日 LS_CRBCTS:='0';--传染病床日 LS_ZYLB00:='21';--住院类别(普通,家庭病床) LS_CYRQ00:=nvl(RZYXX.CYRQ00,to_char(sysdate,'YYYYMMDD'));--出院日期 String(8) N “20150101” LS_CYSJ00:=nvl(RZYXX.CYSJ00,to_char(sysdate,'HH24:MI:SS'));--出院时间 String(4) N “0404” LS_CYZTLX:='010';--出院状态类型 String(12) 010 痊愈 020 好转 030 恶化 040 死亡 050 其他 --获取科室编码 begin select substrb(SF_ZY_GETYYKSBM(LS_ZYID00,0),1,50) into LS_KSBM00 from dual; exception when others then LS_KSBM00:=RZYXX.DQBQ00; end; end if; --步骤1：插入主表数据 insert into ZY_YBJK00(DDLSH0,ID0000,JKLXBM,JKLXMC,JKLX00,JKMXLX,CZRQ00,CZSJ00,CZY000,CZYXM0,YBZYH0,JZDH00, BRID00,ZYID00,ZYH000,BRXM00,BRXB00,BRZJBH,YBKH00,YBID00,CZLXBZ,INCS00,HJJE00,JKNBCS, JKQQCS,JKFHCS,DBZBM0,YBMC00,YBSM01) values(LS_DDLSH0,0,LS_JKLXBM,LS_JKLXMC,LS_JKLX00,LS_JKMXLX,LS_CZRQ00,LS_CZSJ00,PCZY000,PCZYXM0,LS_YBZYH0,PJZDH00, LS_BRID00,LS_ZYID00,LS_ZYH000,LS_BRXM00,LS_BRXB00,LS_BRZJBH,LS_YBKH00,LS_YBID00,'0',PBYRC00,0,LS_JKNBCS, LS_JKQQCS,LS_JKFHCS,RZYXX.DBZBM0,LS_YBMC00,nvl(LS_DDCJBM,'YH')); if LS_DDCJBM in ('YL') then --- -------------------------------->>>>>YL:医联.Begin<<<<<-------------------------------- ---Header节点---begin--- --funid 功能编号 YLMPS.01.01.01 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'funid','功能接口代码','Header',null,'1',LS_FUNC,null from dual; --sign 签名（16 个字节小写字母） 备注： 默认 0000000000000000 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'sign','签名','Header',null,'1',nvl(LS_FROM,'0000000000000000'),null from dual; --接口返回值 --result 结果（0:成功 其他:失败） insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'result','接口返回结果(0:成功 其他:失败)','Header',null,'2',null,null from dual; --msg 提示信息 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'msg','接口提示信息','Header',null,'2',null,null from dual; ---Header节点---End--- ---Body节点---begin--- --card_no 卡号 Y insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'card_no','卡号','Body',null,'1',LS_CARDNO,null from dual; --card_type 卡类型 Y 01:社保卡 02:就诊卡 03:身份证 04:住院号 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'card_type','卡类型(01:社保卡 02:就诊卡 03:身份证 04:住院号)','Body',null,'1',LS_CATYPE,null from dual; --name 姓名 Y insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'name','病人姓名','Body',null,'1',LS_BRXM00,null from dual; --business_type 业务类别 Y 01:门诊 02:住院 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'business_type','业务类别(01:门诊 02:住院)','Body',null,'1',LS_YWTYPE,null from dual; --inpatient_id 住院号 N 账号类型为住院时要传 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'inpatient_id','住院号','Body',null,'1',trim(RZYXX.ZYH000),null from dual; --patient_id 院内病人 ID Y insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'patient_id','院内病人ID','Body',null,'1',LS_BRID00,null from dual; --operator_id 操作员编号 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'operator_id','操作员编号','Body',null,'1',LS_CZY000,null from dual; --operator_name 操作员姓名 Y insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'operator_name','操作员姓名','Body',null,'1',LS_CZYXM0,null from dual; --HIS接口请求参数 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PMZZYBZ','门诊住院标志 0:门诊 1:住院','Body',null,'1',PMZZYBZ,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PDDLSH0','订单流水号','Body',null,'1',PDDLSH0,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PJKLXBH','接口编码','Body',null,'1',PJKLXBH,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PJKLX00','接口类型(DD:多点结算)','Body',null,'1',PJKLX00,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PBRID00','BRID00','Body',null,'1',PBRID00,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PZYGHID','挂号ID或住院ID','Body',null,'1',PZYGHID,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PCARDNO','IC卡号或住院号','Body',null,'1',PCARDNO,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PCZY000','操作员编码','Body',null,'1',PCZY000,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PCZYKS0','操作员科室','Body',null,'1',PCZYKS0,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PKSRQ00','开始日期','Body',null,'1',PKSRQ00,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PJSRQ00','结束日期','Body',null,'1',PJSRQ00,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PJZDH00','结账单号','Body',null,'1',PJZDH00,null from dual; insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'PBYRC00','备用入参','Body',null,'1',PBYRC00,null from dual; ---Body节点---End--- --修改报文XML值 update ZY_YBFSZX set XML000='<'||JKFSBM||'>'||trim(JKFSZ0)||'' where DDLSH0=LS_DDLSH0 and FSLX00 not in ('2'); -------------------------------->>>>>YL:医联.End<<<<<-------------------------------- else -------------------------------->>>>>YH:易惠.Begin<<<<<-------------------------------- --插入共同方法--begin-- --func 功能接口代码 String(50) N fsi.outpatient.charge insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'func','功能接口代码',null,null,'1',LS_FUNC,null from dual; --from 多点结算平台商户编号 String(20) N 9901 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'from','平台商户编号',null,null,'1',LS_FROM,null from dual; --termid 多点结算平台终端编号 String(20) N 99001101 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'termid','平台终端编号',null,null,'1',LS_TERMID,null from dual; --userid 用户名 String(16) 医保库有注册的院内人 N MARTIN insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'userid','医保账号编码',null,null,'1',LS_USERID,null from dual; --userpw 密码 String(20) N 123 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'userpw','医保账号密码',null,null,'1',LS_USERPW,null from dual; --areano 地区编号 String(4) N 3502 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'areano','地区编号',null,null,'1',LS_AREANO,null from dual; --ywxt00 业务系统 String(3) 医保-YB N YB insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ywxt00','业务系统',null,null,'1',LS_YWXT00,null from dual; --yy_ywlsh0 医院业务流水号 String(30) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'yy_ywlsh0','医院业务流水号',null,null,'1',LS_DDLSH0,null from dual; --以下是每个接口报文统一扩展参数-- --extra 接口扩展参数 JSON 预留-->主项 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'extra','接口扩展参数','extra',null,'1',null,null from dual; --extra 接口扩展参数 JSON 预留-->明细项(SF_YBFSJD) insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'extra','接口扩展参数','hisExtra','hisExtra扩展参数',null,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','MZZYBZ','标志 0:门诊 1:住院',PMZZYBZ,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','DDLSH0','HIS内部订单号',LS_DDLSH0,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JKLXBH','接口编码',PJKLXBH,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JKLX00','接口类型',PJKLX00,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','BRID00','BRID00',PBRID00,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','ZYGHID','挂号ID',PZYGHID,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CARDNO','IC卡号或住院号',PCARDNO,null,'3' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CZY000','操作员编码',PCZY000,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CZYXM0','操作员姓名',PCZYXM0,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CZYKS0','操作员科室',PCZYKS0,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','KSRQ00','开始日期',PKSRQ00,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JSRQ00','结束日期',PJSRQ00,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JZDH00','结账单号',PJZDH00,null,'1' from dual; --终端编号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','PZDBH00','终端编号',LS_ZDBH00,null,'1' from dual; --医院机构代码 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','PYYJGDM','医院机构代码',null,null,'1' from dual; --查询方式 02:卡号 07: 身份证号 08: 住院号 (新)1 磁条卡 2 社会保障卡 3 4442芯片卡 3 4428芯片卡 4 居民健康卡 5 非接卡（院内卡）7 身份证 8 住院号 9 病历号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','PCXFS00','查询方式(02:卡号 07: 身份证号 08: 住院号)','08',null,'1' from dual; --查询代码 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','PCXDM00','查询代码',PCARDNO,null,'1' from dual; insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','PBYRC00','备用参数',null,null,'1' from dual; --2020.07.20 注释掉读卡返回参数 /* --设备卡返回信息---begin---LS_JDBM00:=Readcard_Info LS_JDBM00:='Readcard_Info'; --节点编码 LS_JDMC00:='读卡_设备卡信息'; --pIssuedeptid Char(64) 发卡机构编号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pIssuedeptid','读卡_发卡机构编号',null,null,'2' from dual; --pIssuedate Char(64) 发卡日期 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pIssuedate','读卡_发卡日期',null,null,'2' from dual; --pCardtype Char（32） 卡类型 1 保健卡 2 社保卡 3 全省联网医保卡 4 居民健康卡 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pCardtype','读卡_卡类型1保健卡2社保卡3全省联网4居民健康卡',null,null,'2' from dual; --pCardno Char(64) 卡号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pCardno','读卡_卡号',null,null,'2' from dual; --pIdtype Char(64) 证件类型 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pIdtype','读卡_证件类型',null,null,'2' from dual; --pId Char(64) 证件号码 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pId','读卡_证件号码',null,null,'2' from dual; --pName Char(64) 姓名 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pName','读卡_姓名',null,null,'2' from dual; --pSex Char(32) 性别 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pSex','读卡_性别(1:男 2:女)',null,null,'2' from dual; --pBirthdate Char(32) 出生日期 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pBirthdate','读卡_出生日期',null,null,'2' from dual; --pCompany Char(128) 公司名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pCompany','读卡_公司名称',null,null,'2' from dual; --pAddress Char(128) 通讯地址 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pAddress','读卡_通讯地址',null,null,'2' from dual; --pTelephone Char(128) 电话 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pTelephone','读卡_电话',null,null,'2' from dual; --设备卡返回信息---end--- --病人资格信息---begin---LS_JDBM00:=Readcard_StatusMsg LS_JDBM00:='Readcard_StatusMsg'; --节点编码 LS_JDMC00:='读卡_参保信息'; --cardno Char(12) IC卡号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'cardno','参保信息_IC卡号',null,null,'2' from dual; --id0000 Char(19) 保险号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'id0000','参保信息_保险号',null,null,'2' from dual; --xming0 Char(20) 姓名 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'xming0','参保信息_姓名',null,null,'2' from dual; --gzztmc Char(30) 工作状态名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'gzztmc','参保信息_工作状态名称',null,null,'2' from dual; --xbmc00 Char(10) 性别名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'xbmc00','参保信息_性别名称',null,null,'2' from dual; --brnl00 Char(3) 年龄接口规范 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'brnl00','参保信息_年龄',null,null,'2' from dual; --fzxmc0 Char(20) 医保分中心名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'fzxmc0','参保信息_医保分中心名称',null,null,'2' from dual; --grzhye Char(15) 医保帐户余额 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'grzhye','参保信息_医保帐户余额',null,null,'2' from dual; --dwmc00 Char(50) 单位名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'dwmc00','参保信息_单位名称',null,null,'2' from dual; --icztmc Char(30) IC卡状态 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'icztmc','参保信息_IC卡状态',null,null,'2' from dual; --ybzt00 Char(30) 医保状态 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'ybzt00','参保信息_医保状态',null,null,'2' from dual; --dqmc00 Char(20) 地区名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'dqmc00','参保信息_地区名称',null,null,'2' from dual; --cblx00 Char(12) 参保类型 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'cblx00','参保信息_参保类型',null,null,'2' from dual; --mzfylj Char(15) 门诊费用累计 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'mzfylj','参保信息_门诊费用累计',null,null,'2' from dual; --pmfd00 Char(15) 普门封顶线 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'pmfd00','参保信息_普门封顶线',null,null,'2' from dual; --tmzylj Char(15) 特殊门诊和住院年度累计 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'tmzylj','参保信息_特殊门诊和住院年度累计',null,null,'2' from dual; --tcfdx0 Char(15) 统筹封顶线 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'tcfdx0','参保信息_统筹封顶线',null,null,'2' from dual; --sbndlj Char(15) 商保年度累计 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'sbndlj','参保信息_商保年度累计',null,null,'2' from dual; --sbfdx0 Char(15) 商保封顶线 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'sbfdx0','参保信息_商保封顶线',null,null,'2' from dual; --djlsh0 Char(10) 异地单据号 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'djlsh0','参保信息_异地单据号',null,null,'2' from dual; --yddjlx Char(12) 异地登记类型 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'yddjlx','参保信息_异地登记类型',null,null,'2' from dual; --yddjyy Char(20) 异地登记医院/药店名称 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'yddjyy','参保信息_异地登记医院/药店名称',null,null,'2' from dual; --ydqsrq Char(8) 异地登记起始日期 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'ydqsrq','参保信息_异地登记起始日期',null,null,'2' from dual; --ydjzrq Char(8) 异地登记截止日期 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'ydjzrq','参保信息_异地登记截止日期',null,null,'2' from dual; --sylx00 Char(12) 生育类型 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'sylx00','参保信息_生育类型',null,null,'2' from dual; --syqsrq Char(8) 生育登记起始日期 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'syqsrq','参保信息_生育登记起始日期',null,null,'2' from dual; --syjzrq Char(8) 生育登记截止日期 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'syjzrq','参保信息_生育登记截止日期',null,null,'2' from dual; --sfsb00 Char(2) 是否商保 Y:是， N:否 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'sfsb00','参保信息_是否商保 Y:是N:否',null,null,'2' from dual; --mzxe00 Char(20) 门诊限额 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'mzxe00','参保信息_门诊限额',null,null,'2' from dual; --zyndlj Char(20) 住院年度累计 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'zyndlj','参保信息_住院年度累计',null,null,'2' from dual; --zyxe00 Char(20) 住院限额 insert into ZY_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_JDBM00,LS_JDMC00,'zyxe00','参保信息_住院限额',null,null,'2' from dual; --病人资格信息---end--- */ ---------------------》接口返回参数 --retCode 返回结果码 String(10) N 0000 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'retCode','返回结果码(0000:成功)',null,null,'2',null,null from dual; --retMsg 返回结果说明 String(200) N 操作成功 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'retMsg','返回结果说明',null,null,'2',null,null from dual; --插入共同方法--end-- --接口类型编码:20020:个人医保信息查询 20021:住院刷卡 20022:入院登记 if PJKLXBH in ('20020','20021') then ----->20021:住院刷卡<-----Begin----- --pIssuedeptid Char(64) 发卡机构编号 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pIssuedeptid','读卡_发卡机构编号','Readcard_Info',null,'2',null,null from dual; --pIssuedate Char(64) 发卡日期 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pIssuedate','读卡_发卡日期','Readcard_Info',null,'2',null,null from dual; --pCardtype Char（32） 卡类型 1 保健卡 2 社保卡 3 全省联网医保卡 4 居民健康卡 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pCardtype','卡类型(1:保健卡2:社保卡3:全省医保卡4:居民健康卡)','Readcard_Info',null,'2',null,null from dual; --pCardno Char(64) 卡号 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pCardno','读卡_卡号','Readcard_Info',null,'2',null,null from dual; --pIdtype Char(64) 证件类型 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pIdtype','读卡_证件类型','Readcard_Info',null,'2',null,null from dual; --pId Char(64) 证件号码 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pId','读卡_证件号码','Readcard_Info',null,'2',null,null from dual; --pName Char(64) 姓名 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pName','读卡_姓名','Readcard_Info',null,'2',null,null from dual; --pSex Char(32) 性别 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pSex','读卡_性别','Readcard_Info',null,'2',null,null from dual; --pBirthdate Char(32) 出生日期 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pBirthdate','读卡_出生日期','Readcard_Info',null,'2',null,null from dual; --pCompany Char(128) 公司名称 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pCompany','读卡_公司名称','Readcard_Info',null,'2',null,null from dual; --pAddress Char(128) 通讯地址 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pAddress','读卡_通讯地址号','Readcard_Info',null,'2',null,null from dual; --pTelephone Char(128) 电话 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pTelephone','读卡_电话','Readcard_Info',null,'2',null,null from dual; --cblx00 Char(12) 参保类型 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cblx00','参保信息_参保类型','Body',null,'2',null,null from dual; --mzfylj Char(15) 门诊费用累计 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'mzfylj','参保信息_门诊费用累计','Body',null,'2',null,null from dual; --pmfd00 Char(15) 普门封顶线 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'pmfd00','参保信息_普门封顶线','Body',null,'2',null,null from dual; --tmzylj Char(15) 特殊门诊和住院年度累计 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'tmzylj','参保信息_特殊门诊和住院年度累计','Body',null,'2',null,null from dual; --tcfdx0 Char(15) 统筹封顶线 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'tcfdx0','参保信息_统筹封顶线','Body',null,'2',null,null from dual; --sbndlj Char(15) 商保年度累计 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'sbndlj','参保信息_商保年度累计','Body',null,'2',null,null from dual; --sbfdx0 Char(15) 商保封顶线 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'sbfdx0','参保信息_商保封顶线','Body',null,'2',null,null from dual; --cardno 医保卡号 String(12) N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'3',LS_YBKH00,null from dual; --id0000 社会保险号 String(18) 读社保卡获得 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保险号',null,null,'3',LS_YBID00,null from dual; ----->20021:住院刷卡.接口返回值<-----Begin----- --xtgzh0 系统跟踪号 String(20) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'xtgzh0','系统跟踪号',null,null,'2',null,null from dual; --xming0 姓名 String(20) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'xming0','姓名',null,null,'2',null,null from dual; --xbie00 性别编号 String(1) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'xbie00','性别编号(1:男 2:女 9:其它)',null,null,'2',null,null from dual; --xbiemc 性别名称 String(2) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'xbiemc','性别名称',null,null,'2',null,null from dual; --brnl00 年龄 String(3) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'brnl00','年龄',null,null,'2',null,null from dual; --fzxbh0 分中心编号 String(2) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'fzxbh0','分中心编号',null,null,'2',null,null from dual; --fzxmc0 分中心名称 String(20) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'fzxmc0','分中心名称',null,null,'2',null,null from dual; --icztbh IC 卡状态编号 String(1) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'icztbh','IC卡状态编号',null,null,'2',null,null from dual; --icztmc IC 卡状态名称 String(30) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'icztmc','IC卡状态名称',null,null,'2',null,null from dual; --gzztmc 工作状态名称 String(30) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'gzztmc','工作状态名称',null,null,'2',null,null from dual; --xqmc00 参保人所属地区名称 String(30) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'xqmc00','参保人所属地区名称',null,null,'2',null,null from dual; --dwmc00 参保人单位信息 String(100) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'dwmc00','参保人单位信息',null,null,'2',null,null from dual; --grzhye 帐户余额 String(12) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'grzhye','医保帐户余额',null,null,'2',null,null from dual; --sfjzfp Char(2) 是否精准扶贫 Y:是， N:否 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'sfjzfp','是否精准扶贫(Y:是 N:否)',null,null,'2',null,null from dual; --sfzhao 身份证号 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'sfzhao','身份证号','Body',null,'2',null,null from dual; --csrq00 出生日期 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'csrq00','出生日期','Body',null,'2',null,null from dual; --address 家庭地址 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'address','家庭地址','Body',null,'2',null,null from dual; --telephone 联系电话 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'telephone','联系电话','Body',null,'2',null,null from dual; --yblbmc 医保类别名称 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'yblbmc','医保类别名称','Body',null,'2',null,null from dual; ----->20021:住院刷卡.接口返回值<-----end----- ----->20021:住院刷卡<-----End----- elsif PJKLXBH in ('20022') then ----->20022:住院登记<-----Begin-----向医保进行住院登记,并得到医保住院信息 --cardno 医保卡号 String(12) N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'3',LS_YBKH00,null from dual; --id0000 社会保险号 String(18) 读社保卡获得 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保险号',null,null,'3',LS_YBID00,null from dual; --username 患者姓名 String(12) 患者姓名 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'username','患者姓名',null,null,'3',LS_BRXM00,null from dual; --zyrq00 入院时间 String(12) yyyyMMdd insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zyrq00','住院日期(yyyyMMdd)',null,null,'3',RZYXX.RYRQ00,null from dual; --zysj00 入院时间 String(4) hhmm insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zysj00','住院时间(hhmm)',null,null,'3',substrb(RZYXX.RYSJ00,1,2)||substrb(RZYXX.RYSJ00,4,2),null from dual; --ryrq00 入院时间 String(12) yyyyMMdd insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ryrq00','入院日期(yyyyMMdd)',null,null,'3',RZYXX.RYRQ00,null from dual; --rysj00 入院时间 String(4) hhmm insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'rysj00','入院时间(hhmm)',null,null,'3',substrb(RZYXX.RYSJ00,1,2)||substrb(RZYXX.RYSJ00,4,2),null from dual; --rydjrq 入院时间 String(12) yyyyMMdd insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'rydjrq','入院登记日期(yyyyMMdd)',null,null,'3',RZYXX.RYRQ00,null from dual; --rydjsj 入院时间 String(4) hhmm insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'rydjsj','入院登记时间(hhmm)',null,null,'3',substrb(RZYXX.RYSJ00,1,2)||substrb(RZYXX.RYSJ00,4,2),null from dual; --yyksbm 医院科室编码 String(10) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'yyksbm','医院科室编码(厦门地区)',null,null,'3',LS_YYKSBM,null from dual; --ksbm00 医院科室编码 String(10) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ksbm00','医院科室编码(其它地区)',null,null,'3',LS_YYKSBM,null from dual; --ryksmc 入院科室名称 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ryksmc','医院科室编码(其它地区)',null,null,'3',LS_RYKSMC,null from dual; --zyksbm 入院科室编码 String(10) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zyksbm','入院科室编码',null,null,'3',LS_YYKSBM,null from dual; --zyksmc 入院科室名称 String(50) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zyksmc','入院科室名称',null,null,'3',LS_RYKSMC,null from dual; --rylb00 入院类别 String(50) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'rylb00','入院类别',null,null,'3',LS_RYLB00,null from dual; --zylb00 住院类别 String(8) 21 普通住院 22 特殊病种住院 31 家庭病床 52 生育住院 62 失业住院 72 工伤住院 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zylb00','住院类别',null,null,'1',LS_ZYLB00,null from dual; ----->20022:住院登记.接口返回值<-----Begin----- --xtgzh0 系统跟踪号 String(20) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'xtgzh0','系统跟踪号',null,null,'2',null,null from dual; --zylsh0 住院流水号 String(16) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zylsh0','住院流水号',null,null,'2',null,null from dual; --authcode 医保授权串 String(200) 无卡授权信息 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'authcode','医保授权串(无卡授权信息)',null,null,'2',null,null from dual; ----->20022:住院登记.接口返回值<-----End----- ----->20022:住院登记<-----End----- elsif PJKLXBH in ('20023') then ----->20023:入院登记冲销<-----Begin----- --判断是否有没有医保住院号 if trim(LS_YBZYH0) is null or trim(LS_YBZYH0) in ('0') then PZXZT00:=0;--输出:执行状态 0:失败 1：成功 PERRMSG:='未找到有效的医保住院号,请核对该病人是否已经做过医保入院登记！';--输出:错误信息 return; end if; ---------------------》请求参数 --cardno 医保卡号 String(12) N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'3',LS_YBKH00,null from dual; --id0000 社会保险号 String(18) 读社保卡获得 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保险号',null,null,'3',LS_YBID00,null from dual; --cxlsh0 冲销单据号(医保住院号) String(16) 要冲销的住院收费登记流水号 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cxlsh0','冲销医保住院号',null,null,'3',LS_YBZYH0,null from dual; --authcode 医保授权串 String(200) 无卡授权信息 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'authcode','医保授权串(无卡授权信息)',null,null,'2',null,null from dual; ----->20023:入院登记冲销<-----End----- elsif PJKLXBH in ('20024') then --20024:住院预结算 ----->20024:住院预结算<-----Begin----- --cardno 医保卡号 String(12) N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'3',LS_YBKH00,null from dual; --id0000 社会保险号 String(18) 读社保卡获得 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保险号',null,null,'3',LS_YBID00,null from dual; --zylsh0 住院流水号 String(16) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zylsh0','医保住院号',null,null,'3',LS_ZYLSH0,null from dual; --ptbcts 0到1000 Y 普通病床日 accountType=02时住院处方用到 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ptbcts','普通病床日',null,null,'1',LS_PTBCTS,null from dual; --crbcts 0到1000 Y 传染病床日 accountType=02时住院处方用到 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'crbcts','传染病床日',null,null,'1',LS_CRBCTS,null from dual; --authcode 医保授权串 String(200) 无卡授权信息 N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'authcode','医保授权串(无卡授权信息)',null,null,'3',null,null from dual; --presettlemode 预结算模式 String(2) “00”全量 “01”增量 Y 默认全量 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'presettlemode','预结算模式(00:全量 01:增量)',null,null,'3','00',null from dual; ----->20024:住院预结算<-----End----- elsif PJKLXBH in ('20025') then --20025:住院收费 ----->20025:住院收费<-----Begin----- --cardno 医保卡号 String(12) N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'3',nvl(LS_YBKH00,LS_ZYH000),null from dual; --id0000 社会保险号 String(18) 读社保卡获得 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保险号',null,null,'3',LS_YBID00,null from dual; --zylsh0 住院流水号 String(16) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zylsh0','医保住院号',null,null,'3',LS_ZYLSH0,null from dual; --ptbcts 0到1000 Y 普通病床日 accountType=02时住院处方用到 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ptbcts','普通病床日',null,null,'1',LS_PTBCTS,null from dual; --crbcts 0到1000 Y 传染病床日 accountType=02时住院处方用到 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'crbcts','传染病床日',null,null,'1',LS_CRBCTS,null from dual; --authcode 医保授权串 String(200) 无卡授权信息 N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'authcode','医保授权串(无卡授权信息)',null,null,'3',null,null from dual; ----->20025:住院收费<-----End----- elsif PJKLXBH in ('20027') then --20027:出院登记 ----->20027:出院登记<-----Begin----- --cardno 医保卡号 String(12) N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'3',LS_YBKH00,null from dual; --id0000 社会保险号 String(18) 读社保卡获得 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保险号',null,null,'3',LS_YBID00,null from dual; --zylsh0 住院流水号 String(16) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zylsh0','医保住院号',null,null,'3',LS_ZYLSH0,null from dual; --zylb00 住院类别 String(8) 21 普通住院 22 特殊病种住院 31 家庭病床 52 生育住院 62 失业住院 72 工伤住院 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'zylb00','住院类别',null,null,'1',LS_ZYLB00,null from dual; --ptbcts 0到1000 Y 普通病床日 accountType=02时住院处方用到 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ptbcts','普通病床日',null,null,'1',LS_PTBCTS,null from dual; --crbcts 0到1000 Y 传染病床日 accountType=02时住院处方用到 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'crbcts','传染病床日',null,null,'1',LS_CRBCTS,null from dual; --cyrq00 出院日期 String(8) N “20150101” insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cyrq00','出院日期',null,null,'1',LS_CYRQ00,null from dual; --cysj00 出院时间 String(4) N “0404” insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cysj00','出院时间',null,null,'1',substrb(LS_CYSJ00,1,2)||substrb(LS_CYSJ00,4,2),null from dual; --cyztlx 出院状态类型 String(12) 010 痊愈 020 好转 030 恶化 040 死亡 050 其他 insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'cyztlx','出院状态类型',null,null,'1',LS_CYZTLX,null from dual; --ksbm00 科室编码 String(10) insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'ksbm00','科室编码',null,null,'1',LS_KSBM00,null from dual; --authcode 医保授权串 String(200) 无卡授权信息 N insert into ZY_YBFSZX(DDLSH0,MXID00,ZYID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_ZYID00,LS_JKLXBM,LS_JKLXMC,'authcode','医保授权串(无卡授权信息)',null,null,'3',null,null from dual; ----->20027:出院登记<-----End----- end if; -------------------------------->>>>>YH:易惠.End<<<<<-------------------------------- end if; PZXZT00:=1;--输出:执行状态 0:失败 1：成功 exception when no_data_found then PZXZT00:=0; PERRMSG:=substrb('执行多点结算日志过程SP_ZY_DDJSJKRZ错误！'||sqlerrm,1,200); when others then PZXZT00:=0; PERRMSG:=substrb('执行多点结算日志过程SP_ZY_DDJSJKRZ错误！'||sqlerrm,1,200); end; / show error; --%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%